R/6_2_3 tension.R

In CivilEngineerUK/EC3_1_1: EC3-1-1 smartcalc Module

library(smartcalc)

#' Tension Force
#' 
#' Calculates the tension force of a steel member
#' 
#' @export
tension_force <- function(`A_{net}`, A, f_y, f_u, `\\gamma_{M0}`, 
                          `\\gamma_{M2}`) {
  `N_{pl,Rd}` <- A * f_y / `\\gamma_{M0}`
  `N_{u,Rd}` <- 0.9 * `A_{net}` * f_u / `\\gamma_{M2}`
  `N_{t,Rd}` <- min(`N_{u,Rd}`, `N_{pl,Rd}`)
  `N_{t,Rd}`
}

#' @export
eq_6.5 <- eq(function(`N_{Ed}`, `N_{t,Rd}`, output = 'UR_{tension}') {
  `N_{Ed}` / `N_{t,Rd}` %<=% 1
},
eq = '6.5', clause = '6.2.3', subclause = 1, type = 'tension')

#' @export
eq_6.6 <- eq(function(A, f_y, `\\gamma_{M0}`, output = 'N_{t,Rd}') {
  A * f_y / `\\gamma_{M0}`
}, 
eq = '6.6', clause = '6.2.3', subclause = 2, type = 'tension')

#' @export
eq_6.7 <- eq(function(A, f_u, `\\gamma_{M2}`, output = 'N_{u,Rd}') {
  0.9 * A * f_u / `\\gamma_{M2}`
}, 
eq = '6.7', clause = '6.2.3', subclause = 2, type = 'tension')

#' @export
eq_6.8 <- eq(function(`A_{net}`, f_y, `\\gamma_{M0}`, output = 'N_{net,Rd}') {
  `A_{net}` * f_y / `\\gamma_{M0}`
}, 
eq = '6.8', clause = '6.2.3', subclause = 4, type = 'tension')